home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 December / Chip_2003-12_cd1.bin / program / ctenari / ShiCola / CodePad37.exe / $INSTDIR / Syntax Definitions / objectpascal.def < prev    next >
Encoding:
Text File  |  2003-10-17  |  11.6 KB  |  403 lines
  1. object TPersHolder
  2.   P.Name = 'Object Pascal'
  3.   P.Extensions.Strings = (
  4.     'Object Pascal files (*.pas;*.dpr;*.dpk)|*.pas;*.dpr;*.dpk')
  5.   P.SyntaxBlocks = <
  6.     item
  7.       Name = 'Default'
  8.       ID = 0
  9.       FIText = 0
  10.       FIIntNum = 1
  11.       FIFloatNum = 2
  12.       FIHexNum = 3
  13.       FISymbol = 21
  14.       UseSymbols = True
  15.       UseComments = True
  16.       UseSingleLineComments = True
  17.       UseMultiLineComments = True
  18.       UseStrings = True
  19.       UseSingleLineStrings = True
  20.       UseNumbers = True
  21.       UsePrefixedNumbers = True
  22.       UseKeywords = True
  23.       BlockDelimiters = <>
  24.       SingleLineCommentDelimiters = <
  25.         item
  26.           FontID = 4
  27.           LeftDelimiter = '//'
  28.         end>
  29.       MultiLineCommentDelimiters = <
  30.         item
  31.           FontID = 5
  32.           LeftDelimiter = '{'
  33.           RightDelimiter = '}'
  34.         end
  35.         item
  36.           FontID = 6
  37.           LeftDelimiter = '(*'
  38.           RightDelimiter = '*)'
  39.         end>
  40.       SingleLineStringDelimiters = <
  41.         item
  42.           FontID = 7
  43.           LeftDelimiter = #39
  44.           RightDelimiter = #39
  45.         end>
  46.       NumPrefixes = <
  47.         item
  48.           LeftDelimiter = '$'
  49.         end
  50.         item
  51.           LeftDelimiter = '#$'
  52.         end
  53.         item
  54.           LeftDelimiter = '#'
  55.         end>
  56.       KeywordSets = <
  57.         item
  58.           FontID = 8
  59.           Name = 'reserved'
  60.           Keywords = 
  61.             'absolute,abstract,and,array,as,asm,assembler,at,automated,begin,' +
  62.             'case,cdecl,class,const,constructor,contains,default,destructor,d' +
  63.             'ispid,dispinterface,div,do,downto,dynamic,else,end,except,export' +
  64.             ',exports,external,far,file,finalization,finally,for,forward,func' +
  65.             'tion,goto,if,implementation,implements,in,index,inherited,initia' +
  66.             'lization,inline,interface,is,label,library,message,mod,name,near' +
  67.             ',nil,nodefault,not,object,of,on,or,out,overload,override,package' +
  68.             ',packed,pascal,private,procedure,program,property,protected,publ' +
  69.             'ic,published,raise,read,readonly,record,register,reintroduce,rep' +
  70.             'eat,requires,resident,resourcestring,safecall,set,shl,shr,stdcal' +
  71.             'l,stored,string,then,threadvar,to,try,type,unit,until,uses,var,v' +
  72.             'irtual,while,with,write,writeonly,xor'
  73.         end>
  74.     end
  75.     item
  76.       Name = 'Assembler'
  77.       ID = 1
  78.       ParentID = 0
  79.       FIText = 9
  80.       FIIntNum = 10
  81.       FIFloatNum = 11
  82.       FIHexNum = 22
  83.       UseComments = True
  84.       UseSingleLineComments = True
  85.       UseMultiLineComments = True
  86.       UseStrings = True
  87.       UseSingleLineStrings = True
  88.       UseNumbers = True
  89.       UsePrefixedNumbers = True
  90.       UseSuffixedNumbers = True
  91.       UseMultipleNumSuffixes = False
  92.       UsePrefixedIdentifiers = True
  93.       UseKeywords = True
  94.       BlockDelimiters = <
  95.         item
  96.           LeftDelimiter = 'asm'
  97.           RightDelimiter = 'end'
  98.         end>
  99.       SingleLineCommentDelimiters = <
  100.         item
  101.           FontID = 13
  102.           LeftDelimiter = '//'
  103.         end>
  104.       MultiLineCommentDelimiters = <
  105.         item
  106.           FontID = 14
  107.           LeftDelimiter = '{'
  108.           RightDelimiter = '}'
  109.         end
  110.         item
  111.           FontID = 15
  112.           LeftDelimiter = '(*'
  113.           RightDelimiter = '*)'
  114.         end>
  115.       SingleLineStringDelimiters = <
  116.         item
  117.           FontID = 16
  118.           LeftDelimiter = #39
  119.           RightDelimiter = #39
  120.         end
  121.         item
  122.           FontID = 17
  123.           LeftDelimiter = '"'
  124.           RightDelimiter = '"'
  125.         end>
  126.       NumPrefixes = <
  127.         item
  128.           LeftDelimiter = '$'
  129.         end>
  130.       NumSuffixes = <
  131.         item
  132.           LeftDelimiter = 'b'
  133.         end
  134.         item
  135.           LeftDelimiter = 'o'
  136.         end
  137.         item
  138.           LeftDelimiter = 'h'
  139.         end>
  140.       IdentPrefixes = <
  141.         item
  142.           LeftDelimiter = '@'
  143.         end>
  144.       KeywordSets = <
  145.         item
  146.           FontID = 18
  147.           Name = 'OpCodes'
  148.           Keywords = 
  149.             'AAA,AAD,AAM,AAS,ADC,ADD,AND,ARPL,BOUND,BSF,BSR,BSWAP,BT,BTC,BTR,' +
  150.             'BTS,CALL,CBW,CDQ,CLC,CLD,CLI,CLTS,CMC,CMP,CMPS,CMPSB,CMPSD,CMPSW' +
  151.             ',CMPXCHG,CWD,CWDE,DAA,DAS,DEC,DIV,ENTER,ESC,F2XM1,FABS,FADD,FADD' +
  152.             'P,FBLD,FBSTP,FCHS,FCLEX,FCOM,FCOMP,FCOMPP,FCOS,FDECSTP,FDISI,FDI' +
  153.             'V,FDIVP,FDIVR,FDIVRP,FENI,FFREE,FIADD,FICOM,FICOMP,FIDIV,FIDIVR,' +
  154.             'FILD,FIMUL,FINCSTP,FINIT,FIST,FISTP,FISUB,FISUBR,FLD,FLD1,FLDCW,' +
  155.             'FLDENV,FLDL2E,FLDL2T,FLDLG2,FLDLN2,FLDPI,FLDZ,FMUL,FMULP,FNCLEX,' +
  156.             'FNDISI,FNENI,FNINIT,FNOP,FNSAVE,FNSTCW,FNSTENV,FNSTSW,FPATAN,FPR' +
  157.             'EM,FPREM1,FPTAN,FRNDINT,FRSTOR,FSAVE,FSCALE,FSETPM,FSIN,FSINCOS,' +
  158.             'FSQRT,FST,FSTCW,FSTENV,FSTP,FSTSW,FSUB,FSUBP,FSUBR,FSUBRP,FTST,F' +
  159.             'UCOM,FUCOMP,FUCOMPP,FWAIT,FXAM,FXCH,FXTRACT,FYL2X,FYL2XP1,HLT,ID' +
  160.             'IV,IMUL,IN,INC,INSB,INSD,INSW,INT,INTO,INVD,INVLPG,IRET,IRETD,JA' +
  161.             ',JAE,JB,JBE,JC,JCXZ,JE,JECXZ,JG,JGE,JL,JLE,JMP,JNA,JNAE,JNB,JNBE' +
  162.             ',JNC,JNE,JNG,JNGE,JNL,JNLE,JNO,JNP,JNS,JNZ,JO,JP,JPE,JPO,JS,JZ,L' +
  163.             'AHF,LAR,LDS,LEA,LEAVE,LES,LFS,LGDT,LGS,LIDT,LLDT,LMSW,LOCK,LODS,' +
  164.             'LODSB,LODSD,LODSW,LOOP,LOOPD,LOOPDE,LOOPDNE,LOOPDNZ,LOOPDZ,LOOPE' +
  165.             ',LOOPNE,LOOPNZ,LOOPZ,LSL,LSS,LTR,MOV,MOVS,MOVSB,MOVSD,MOVSW,MOVS' +
  166.             'X,MOVZX,MUL,NEG,NOP,NOT,OR,OUT,OUTSB,OUTSD,OUTSW,POP,POPA,POPAD,' +
  167.             'POPF,POPFD,PUSH,PUSHA,PUSHAD,PUSHF,PUSHFD,RCL,RCR,REP,REPE,REPNE' +
  168.             ',REPNZ,REPZ,RET,RETF,RETN,ROL,ROR,SAHF,SAL,SAR,SBB,SCAS,SCASB,SC' +
  169.             'ASD,SCASW,SEGCS,SEGDS,SEGES,SEGFS,SEGGS,SEGSS,SETA,SETAE,SETB,SE' +
  170.             'TBE,SETC,SETE,SETG,SETGE,SETL,SETLE,SETNA,SETNAE,SETNB,SETNBE,SE' +
  171.             'TNC,SETNE,SETNG,SETNGE,SETNL,SETNLE,SETNO,SETNP,SETNS,SETNZ,SETO' +
  172.             ',SETP,SETPE,SETPO,SETS,SETZ,SGDT,SHL,SHLD,SHR,SHRD,SIDT,SLDT,SMS' +
  173.             'W,STC,STD,STI,STOS,STOSB,STOSD,STOSW,STR,SUB,TEST,VERR,VERW,WAIT' +
  174.             ',WBINVD,XADD,XCHG,XLAT,XOR'
  175.         end
  176.         item
  177.           FontID = 19
  178.           Name = 'Operands'
  179.           Keywords = 
  180.             'AH,AL,AND,AX,BH,BL,BP,BX,BYTE,CH,CL,CS,CX,DH,DI,DL,DS,DWORD,DX,E' +
  181.             'AX,EBP,EBX,ECX,EDI,EDX,EIP,ES,ESI,ESP,FS,GS,HIGH,LOW,MOD,NOT,OFF' +
  182.             'SET,OR,PTR,QWORD,SHL,SHR,SI,SP,SS,ST,TBYTE,TYPE,WORD,XOR'
  183.         end
  184.         item
  185.           FontID = 20
  186.           Name = 'Directives'
  187.           Keywords = 'DB,DD,DW'
  188.         end>
  189.     end>
  190.   P.FontTable = <
  191.     item
  192.       FontID = 0
  193.       GlobalAttrID = 'Whitespace'
  194.       Font.Charset = DEFAULT_CHARSET
  195.       Font.Color = clBlack
  196.       Font.Height = -13
  197.       Font.Name = 'Courier New'
  198.       Font.Style = []
  199.     end
  200.     item
  201.       FontID = 1
  202.       GlobalAttrID = 'Integer'
  203.       Font.Charset = DEFAULT_CHARSET
  204.       Font.Color = clGreen
  205.       Font.Height = -13
  206.       Font.Name = 'Courier New'
  207.       Font.Style = []
  208.     end
  209.     item
  210.       FontID = 2
  211.       GlobalAttrID = 'Float'
  212.       Font.Charset = DEFAULT_CHARSET
  213.       Font.Color = clGreen
  214.       Font.Height = -13
  215.       Font.Name = 'Courier New'
  216.       Font.Style = []
  217.     end
  218.     item
  219.       FontID = 3
  220.       GlobalAttrID = 'Integer'
  221.       Font.Charset = DEFAULT_CHARSET
  222.       Font.Color = clGreen
  223.       Font.Height = -13
  224.       Font.Name = 'Courier New'
  225.       Font.Style = []
  226.     end
  227.     item
  228.       FontID = 4
  229.       GlobalAttrID = 'Comment'
  230.       Font.Charset = DEFAULT_CHARSET
  231.       Font.Color = clGray
  232.       Font.Height = -13
  233.       Font.Name = 'Courier New'
  234.       Font.Style = [fsItalic]
  235.     end
  236.     item
  237.       FontID = 5
  238.       GlobalAttrID = 'Comment'
  239.       Font.Charset = DEFAULT_CHARSET
  240.       Font.Color = clGray
  241.       Font.Height = -13
  242.       Font.Name = 'Courier New'
  243.       Font.Style = [fsItalic]
  244.     end
  245.     item
  246.       FontID = 6
  247.       GlobalAttrID = 'Comment'
  248.       Font.Charset = DEFAULT_CHARSET
  249.       Font.Color = clGray
  250.       Font.Height = -13
  251.       Font.Name = 'Courier New'
  252.       Font.Style = [fsItalic]
  253.     end
  254.     item
  255.       FontID = 7
  256.       GlobalAttrID = 'String'
  257.       Font.Charset = DEFAULT_CHARSET
  258.       Font.Color = clMaroon
  259.       Font.Height = -13
  260.       Font.Name = 'Courier New'
  261.       Font.Style = []
  262.     end
  263.     item
  264.       FontID = 8
  265.       GlobalAttrID = 'Reserved words'
  266.       Font.Charset = DEFAULT_CHARSET
  267.       Font.Color = clBlue
  268.       Font.Height = -13
  269.       Font.Name = 'Courier New'
  270.       Font.Style = [fsBold]
  271.     end
  272.     item
  273.       FontID = 9
  274.       GlobalAttrID = 'Assembler'
  275.       BlockID = 1
  276.       Font.Charset = DEFAULT_CHARSET
  277.       Font.Color = clGreen
  278.       Font.Height = -13
  279.       Font.Name = 'Courier New'
  280.       Font.Style = []
  281.     end
  282.     item
  283.       FontID = 10
  284.       GlobalAttrID = 'Assembler'
  285.       BlockID = 1
  286.       Font.Charset = DEFAULT_CHARSET
  287.       Font.Color = clGreen
  288.       Font.Height = -13
  289.       Font.Name = 'Courier New'
  290.       Font.Style = [fsBold]
  291.     end
  292.     item
  293.       FontID = 11
  294.       GlobalAttrID = 'Assembler'
  295.       BlockID = 1
  296.       Font.Charset = DEFAULT_CHARSET
  297.       Font.Color = clGreen
  298.       Font.Height = -13
  299.       Font.Name = 'Courier New'
  300.       Font.Style = [fsBold]
  301.     end
  302.     item
  303.       FontID = 22
  304.       GlobalAttrID = 'Assembler'
  305.       BlockID = 1
  306.       Font.Charset = DEFAULT_CHARSET
  307.       Font.Color = clGreen
  308.       Font.Height = -13
  309.       Font.Name = 'Courier New'
  310.       Font.Style = [fsBold]
  311.     end
  312.     item
  313.       FontID = 13
  314.       GlobalAttrID = 'Comment'
  315.       BlockID = 1
  316.       Font.Charset = DEFAULT_CHARSET
  317.       Font.Color = clGray
  318.       Font.Height = -13
  319.       Font.Name = 'Courier New'
  320.       Font.Style = [fsItalic]
  321.     end
  322.     item
  323.       FontID = 14
  324.       GlobalAttrID = 'Comment'
  325.       BlockID = 1
  326.       Font.Charset = DEFAULT_CHARSET
  327.       Font.Color = clGray
  328.       Font.Height = -13
  329.       Font.Name = 'Courier New'
  330.       Font.Style = [fsItalic]
  331.     end
  332.     item
  333.       FontID = 15
  334.       GlobalAttrID = 'Comment'
  335.       BlockID = 1
  336.       Font.Charset = DEFAULT_CHARSET
  337.       Font.Color = clGray
  338.       Font.Height = -13
  339.       Font.Name = 'Courier New'
  340.       Font.Style = [fsItalic]
  341.     end
  342.     item
  343.       FontID = 16
  344.       GlobalAttrID = 'String'
  345.       BlockID = 1
  346.       Font.Charset = DEFAULT_CHARSET
  347.       Font.Color = clMaroon
  348.       Font.Height = -13
  349.       Font.Name = 'Courier New'
  350.       Font.Style = []
  351.     end
  352.     item
  353.       FontID = 17
  354.       GlobalAttrID = 'String'
  355.       BlockID = 1
  356.       Font.Charset = DEFAULT_CHARSET
  357.       Font.Color = clMaroon
  358.       Font.Height = -13
  359.       Font.Name = 'Courier New'
  360.       Font.Style = []
  361.     end
  362.     item
  363.       FontID = 18
  364.       GlobalAttrID = 'Assembler'
  365.       BlockID = 1
  366.       Font.Charset = DEFAULT_CHARSET
  367.       Font.Color = clGreen
  368.       Font.Height = -13
  369.       Font.Name = 'Courier New'
  370.       Font.Style = [fsBold]
  371.     end
  372.     item
  373.       FontID = 19
  374.       GlobalAttrID = 'Assembler'
  375.       BlockID = 1
  376.       Font.Charset = DEFAULT_CHARSET
  377.       Font.Color = clGreen
  378.       Font.Height = -13
  379.       Font.Name = 'Courier New'
  380.       Font.Style = [fsItalic]
  381.     end
  382.     item
  383.       FontID = 20
  384.       GlobalAttrID = 'Assembler'
  385.       BlockID = 1
  386.       Font.Charset = DEFAULT_CHARSET
  387.       Font.Color = clGreen
  388.       Font.Height = -13
  389.       Font.Name = 'Courier New'
  390.       Font.Style = [fsBold]
  391.     end
  392.     item
  393.       FontID = 21
  394.       GlobalAttrID = 'Delimiters'
  395.       Font.Charset = DEFAULT_CHARSET
  396.       Font.Color = clBlack
  397.       Font.Height = -13
  398.       Font.Name = 'Courier New'
  399.       Font.Style = []
  400.     end>
  401.   P.SyntaxVersion = 3
  402. end
  403.